home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / dvlprstc.hqx / Developer Stack 1.3r / card_20566.txt < prev    next >
Encoding:
Text File  |  1991-04-30  |  1.9 KB  |  86 lines
  1. -- card: 20566 from stack: in.3r
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2202
  5. -- name: noButtonDelete
  6. ----- HyperTalk script -----
  7. on deleteButton
  8.   beep 3
  9.   answer "You can't do that"
  10.   domenu copy button
  11.   domenu paste button
  12. end deleteButton
  13.  
  14.  
  15. -- part 1 (button)
  16. -- low flags: 00
  17. -- high flags: A004
  18. -- rect: left=364 top=186 right=246 bottom=464
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 21240 / 21240
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: Can't Delete me!
  27. ----- HyperTalk script -----
  28. on deleteButton
  29.   beep 3
  30.   answer "You can't do that"
  31.   domenu copy button
  32.   domenu paste button
  33. end deleteButton
  34.  
  35.  
  36. -- part 3 (button)
  37. -- low flags: 00
  38. -- high flags: A004
  39. -- rect: left=251 top=159 right=219 bottom=351
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 21240 / 21240
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Can't Delete me!
  48. ----- HyperTalk script -----
  49. on deleteButton
  50.   beep 3
  51.   answer "You can't do that"
  52.   domenu copy button
  53.   domenu paste button
  54. end deleteButton
  55.  
  56.  
  57. -- part contents for background part 10
  58. ----- text -----
  59. 11
  60.  
  61. -- part contents for background part 3
  62. ----- text -----
  63. noButtonDelete
  64.  
  65. -- part contents for background part 2
  66. ----- text -----
  67. --NOTE: Handlers are included in the Function section for convenience.
  68. --
  69. --If you ever create a stack where you want the uninitiated user prevented from 
  70. --accidentally deleting an important button, put the following handler in the background 
  71. --or stack script.
  72. --
  73. --It is installed in this card.  Try to delete the button below...
  74. --
  75. --by Steve Drazga, AnalytX
  76. --
  77. on deleteButton
  78.    beep 3
  79.    answer "You can't do that"
  80.    domenu copy button
  81.    domenu paste button
  82. end deleteButton
  83.  
  84. -- part contents for background part 19
  85. ----- text -----
  86. Functions